home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Atari Compendium
/
The Atari Compendium (Toad Computers) (1994).iso
/
files
/
umich
/
utils
/
egale21e.lzh
/
EGALE.E
/
EXAMPLES
/
EXAMPLEA.TXT
< prev
next >
Wrap
Text File
|
1994-10-17
|
603b
|
36 lines
FUNCTION weekday$(d$) ! Old
LOCAL day$,year,mon,day,mo,jh,je,t
'
year=VAL(MID$(d$,7))
mon=VAL(MID$(d$,4,2))
day=VAL(MID$(d$,1,2))
'
mo=mon-2
jh=year DIV 100
je=year MOD 100
IF mo<=0
mo=mo+12
je=je-1
ENDIF
IF je<0
je=99
jh=jh-1
ENDIF
t=day+INT(2.6*mo-0.2)+INT(je/4+je)+(INT(jh/4)-2*jh)
WHILE t<0
t=t+7
WEND
t=t MOD 7
RESTORE weekday
tag$="Sunday"
FOR i%=1 TO t
READ day$
NEXT i%
RETURN tag$
REM All the weekdays:
weekdays:
DATA Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
ENDFUNC